DEFINITION MODULE RealIO;

(*
*    Copyright (c) 1985,1986,1987,1988,1989 by
*    ana-systems, Foster City, California.
*    All Rights Reserved.
*
*    This software is furnished under a license and may be used and copied
*    only  in accordance with  the  terms  of  such  license and  with the
*    inclusion of the above copyright notice.  This software or  any other
*    copies thereof may not be provided or otherwise made available to any
*    other  person.   No title to and ownership of the  software is  herby
*    transferred.
*
*    The information in this software is  subject to change without notice
*    and  should  not be construed as a commitment by ana-systems.   No
*    warranty is implied or expressed.
*
*   SCCID  = "1.1    1/26/86"; 
*)
FROM Files IMPORT File, FileState;
FROM SYSTEM IMPORT WORD;

EXPORT QUALIFIED
        ReadReal,
        WriteReal;

PROCEDURE ReadReal   (     file   : File ;
                       VAR real   : REAL;
                       VAR success : BOOLEAN;
                       VAR state  : FileState);

PROCEDURE WriteReal (     file  : File;
                          real  : REAL;
                          width : CARDINAL;
                       decPlaces: INTEGER;
                     VAR  state : FileState );
END RealIO.
